home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / rectfunc.d < prev    next >
Text File  |  1997-10-26  |  672b  |  22 lines
  1. DEFINITION MODULE RectFuncs;
  2.  
  3. FROM GrafBase IMPORT Rectangle;
  4.  
  5. PROCEDURE rcIntersect(VAR p1, p2 : Rectangle):BOOLEAN;
  6. (* Testet, ob sich die zwei Rechtecke berschneiden.
  7.  * TRUE = Rechtecke berschneiden sich
  8.  *)
  9.  
  10. PROCEDURE ClipRect (frame: Rectangle; clip: Rectangle): Rectangle;
  11. (* Liefert das Rechteck zurck, das von beiden bergebenen
  12.  * Rechtecken eingeschlossen wird.
  13.  *)
  14.  
  15. PROCEDURE IsInRect (x,y : INTEGER; r : Rectangle) : BOOLEAN;
  16. (* Stellt fest, ob der Punkt mit den Koordinaten x,y im Rechteck r liegt *)
  17.  
  18. PROCEDURE RectEqual (REF r1, r2 : Rectangle): BOOLEAN;
  19. (* Stellt fest, ob die Rechtecke r1 und r2 identisch sind *)
  20.  
  21. END RectFuncs.
  22.